R Notebook

str(reviews)

'data.frame':   21000 obs. of  9 variables:
 $ DOC_ID           : int  1 2 3 4 5 6 7 8 9 10 ...
 $ LABEL            : Factor w/ 2 levels "__label1__","__label2__": 1 1 1 1 1 1 1 1 1 1 ...
 $ RATING           : int  4 4 3 4 4 3 4 4 4 1 ...
 $ VERIFIED_PURCHASE: Factor w/ 2 levels "N","Y": 1 2 1 1 1 1 1 2 1 1 ...
 $ PRODUCT_CATEGORY : Factor w/ 30 levels "Apparel","Automotive",..: 21 30 3 19 4 10 26 4 10 10 ...
 $ PRODUCT_ID       : Factor w/ 18857 levels "006074068X","006103116X",..: 989 16287 2464 6173 17441 9542 16987 17595 8386 14768 ...
 $ PRODUCT_TITLE    : Factor w/ 18865 levels ":08 Min Core Workouts: Abs, Arms, Thighs, Buns and Stretch",..: 16244 11611 5974 3313 14775 16935 5570 780 12804 14748 ...
 $ REVIEW_TITLE     : chr  "useful" "New era for batteries" "doesn't swing very well." "Great computing!" ...
 $ REVIEW_TEXT      : chr  "When least you think so, this product will save the day. Just keep it around just in case you need it for something." "Lithium batteries are something new introduced in the market there average developing cost is relatively high b"| __truncated__ "I purchased this swing for my baby. She is 6 months now and has pretty much out grown it. It is very loud and d"| __truncated__ "I was looking for an inexpensive desk calcolatur and here it is. It works and does everything I need. Only issu"| __truncated__ ...

dim(dtm.cleaned)

[1] 21000   576